100 KEY
110 VARNAME
120 VARNAME
130 LOCATE
140 GOSUB
150 LOCATE
160 PRINT
170 WAIT KEY
180 END
190 UNKNOWN OP: 0x3A
200 UNKNOWN OP: 0x3A
5940 REM ***************************************************************
5950 REM ***          FORM INPUT ROUTINE FOR NAME ENTERING           ***
5960 REM ***************************************************************
5970 REM *** parameters - inplen ( length of input text )            ***
5980 REM ***              xinput,yinput ( coords of inputted text )  ***
5990 REM ***************************************************************
6000 VARNAME
6010 VARNAME
6020 VARNAME
6030 VARNAME
6040 LOCATE
6050 PRINT
6060 UNKNOWN OP: 0x3A
6070 REPEAT
6080 LOCATE
6090 PEN
6100 LOCATE
6110 GOSUB
6120 IF
6130 UNKNOWN OP: 0x3A
6140 IF
6150 UNKNOWN OP: 0x3A
6160 UNTIL
6170 LOCATE
6180 PRINT
6190 RETURN
6200 UNKNOWN OP: 0x3A
6210 UNKNOWN OP: 0x3A
6220 REM ***************************************************************
6230 REM ***  LITTLE ROUTINE TO GET A KEY PRESS, PUT INTO PRESSKEY$  ***
6240 REM ***                   AND SCANPRESS                         ***
6250 REM ***************************************************************
6260 REPEAT
6270 VARNAME
6280 VARNAME
6290 UNTIL
6300 RETURN
6310 UNKNOWN OP: 0x3A